home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Xtras / testdemo.d64 / c64.menu (.txt) < prev    next >
Commodore BASIC  |  2009-02-07  |  2KB  |  52 lines
  1. 10 POKE53280,6:POKE53281,6:DIMTB$(150):PRINT"[147]"CHR$(14):DI=8:C=1
  2. 20 OPEN8,DI,8,":   DIRECTORY   ":OPEN15,DI,15:INPUT#15,EN$,ED$,ET$,ES$
  3. 30 INPUT#8,DN$:IFEN$<>"00"THENCLOSE8:CLOSE15:GOTO310
  4. 40 INPUT#8,TB$(C):IFST=66THEN70
  5. 50 IFASC(LEFT$(TB$(C),1))=10THENTB$(C)=RIGHT$(TB$(C),LEN(TB$(C))-1):GOTO50
  6. 60 C=C+1:GOTO40
  7. 70 CLOSE8:CLOSE15:M=C-1:TB$(C)="":L1$="":FORC=1TO40:L1$=L1$+" ":NEXT
  8. 80 L1$=L1$+"[146]":A=1
  9. 90 POKE53281,1:PRINT"[147]";:FORC=1TO4:PRINTL1$;:NEXT:FORC=1TO2:PRINT""L1$;
  10. 95 NEXT:PRINT"";
  11. 100 PRINTSPC(8)"[196]IRECTORY [193]SSISTANCE V64"SPC(10)"(C)1982  [195][207][205][205][207][196][207][210][197][160][194][213][211][201][206][197]";
  12. 105 PRINT"[211][211][160][205][193][195][200][201][206][197][211]"SPC(11)"[193]UTHOR: [205]ICHAEL [211]CHAFF"SPC(57)""DN$SPC(8)L1$;
  13. 120 FORC=ATOA+14:PRINT""RIGHT$("    "+STR$(C),5)"[146] "TB$(C)SPC(29-LEN(TB$(C)));
  14. 130 PRINT"     ";:NEXT:PRINTL1$;
  15. 135 FORA=1TO2:PRINT""L1$;:NEXT:PRINTLEFT$(L1$,40)"[145]"
  16. 140 PRINTSPC(9)"[145][145][198]1 = CONTINUE LISTING"SPC(19)"[198]3 = CREATE DIRECTORY";
  17. 150 PRINTSPC(19)"[198]5 = EXIT PROGRAM":POKE2023,160:POKE56295,6:POKE198,0:B$=""
  18. 160 GETA$:IFA$=""THEN160
  19. 170 IFASC(A$)=13THEN260
  20. 180 IFA$="[133]"THEN240:REM" F1 ******
  21. 190 [139]A$[178]"DIM"[167]300:[143]" F3 ******
  22. 200 IFA$="[135]"THENPOKE53280,3:PRINT"[147]RUN":END:REM" F5 ******
  23. 210 [139][198](A$)[178]20[167]B$[178]"":[153]"   WAIT":B$[178]"":[137]160
  24. 220 [139]A$[179]"0"[176]A$[177]"9"[176][195](B$)[178]3[167]160
  25. 230 B$[178]B$[170]A$:[153]""B$:[137]160
  26. 240 [139]C[177]M[167]A[178]1:[137]90
  27. 250 A[178]C:[137]90
  28. 260 [139][197](B$)[177]M[167][153]"???":[129]C[178]1[164]1500:[130]:A$[178][199](20):[137]210
  29. 270 [151]53281,6:[151]53280,14:[153]"WAITLOADLOAD"[199](34)TB$([197](B$))[199](34)",8"
  30. 280 [143]   PRINTRIGHT$(STR$(DI),LEN(STR$(DI))-1)
  31. 290 [153]"":[151]198,4:[151]631,13:[151]632,82:[151]633,213:[151]634,13:[128]
  32. 300 [153]"WAIT"
  33. 310 [159]8,DI,0,"$0":[129]C[178]1[164]8:[161]#8,A$:[130]:C[178]1:DN$[178]"":[129]C[178]1[164]16
  34. 320 [161]#8,A$:DN$[178]DN$[170]A$:[130]:[161]#8,A$:[161]#8,A$:DN$[178]DN$[170]"  ":[161]#8,A$
  35. 330 DN$[178]DN$[170]A$:[161]#8,A$:DN$[178]DN$[170]A$:[161]#8,A$:[161]#8,A$:DN$[178]DN$[170]"  "[170]A$
  36. 340 [161]#8,A$:DN$[178]DN$[170]A$:[161]#8,A$:C[178]1
  37. 350 [129]A[178]1[164]4:[161]#8,A$:[130]:PN$[178]"":TY$[178]""
  38. 360 [161]#8,A$:[139]ST[179][177]0[167]450
  39. 370 [139]A$[178]""[167]450
  40. 380 [139][198](A$)[179][177]34[167]360
  41. 390 [161]#8,A$:[139][198](A$)[179][177]34[167]PN$[178]PN$[170]A$:[137]390
  42. 400 [161]#8,A$:[139][198](A$)[178]32[167]400
  43. 410 TY$[178]TY$[170]A$:[161]#8,A$:[139]A$[179][177]""[167]410
  44. 420 [139][200](TY$,3)[179][177]"PRG"[167]350
  45. 430 [139][200](PN$,1)[178]" "[167]350
  46. 440 TB$(C)[178]PN$:C[178]C[170]1:[139]ST[178]0[167]350
  47. 450 [160]8:[159]15,DI,15,"S:   DIRECTORY   ":[160]15
  48. 460 Z$[178]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)":[159]8,DI,8,":   DIRECTORY   ,S,W":[152]8,DN$
  49. 470 [129]A[178]1[164]C[171]1:C$[178]Z$:[129]B[178]1[164]C[171]1:[139]C$[179]TB$(B)[167]490
  50. 480 C$[178]TB$(B):D[178]B
  51. 490 [130]:[152]8,C$:TB$(D)[178]Z$:[130]:[160]8:[156]:[137]10
  52.